home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 November / 64er_Magazin_94-11_1994_Markt__Technik_de_Side_A.d64 / 24platine .set (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  38 lines
  1. 0 print"[147]":list999-
  2. 1 floppy=8:drucker=4:sec=1
  3. 10 print"[154]setup fuer pfox-treiber: 24platine.":print
  4. 20 print"soll der druckertreiber als":print"'p[146][154]rinter' oder 'pr-[146][154]24platine'"
  5. 30 input"gespeichert werden";n$:ifn$<>"-"andn$<>"p"thenrun
  6. 40 ifn$="p"then100
  7. 50 input"loesche alte version j/n";n$:ifn$="n"thenend
  8. 60 open15,floppy,15,"s:pr-24platine"
  9. 70 print"hoffentlich geloescht."
  10. 80 print#15,"c:pr-24platine=24platine":close15
  11. 90 open2,floppy,2,"pr-24platine,p,a":goto 120
  12. 100 open15,floppy,15,"c:printer=24platine":close15
  13. 110 open2,floppy,2,"printer,p,a"
  14. 120 print#2,chr$(drucker)chr$(sec);
  15. 130 dp$="":cn=4
  16. 140 read dc$:ifdc$="_"then170
  17. 150 dp$=dp$+chr$(val(dc$))
  18. 160 goto140
  19. 170 print#2,chr$(len(dp$))dp$;:cn=cn-1
  20. 180 dp$="":ifcnthen140
  21. 190 close2:print"fertig."
  22. 999 rem                                 zeilenabstand!;druckrichtung,cr+lf ...
  23. 1000 data27,101,86,48,52,56,27,85,49,_
  24. 1199 rem                                grafikmodus 1/180 zoll;1280 spalten
  25. 1200 data27,42,39,0,5,_
  26. 1299 rem                                zeilenvorschub
  27. 1300 data13,_
  28. 1399 rem                                tabulieren oder beliebige spaces
  29. 1400 data27,36,100,0,_
  30. 2000 rem 24-nadeltreiber fuer printfox
  31. 2100 rem sourcecode erhaeltlich bei:
  32. 2200 rem     olaf hering
  33. 2300 rem     marienstr.2
  34. 2400 rem     72461 albstadt
  35. 2500 rem disk+10 dm inkl. porto+versand
  36. 2600 rem
  37. 2700 rem start mit: run 1
  38.